home *** CD-ROM | disk | FTP | other *** search
/ Amiga Magazin: Amiga-CD 1997 May & June / Amiga-CD 1997 #5-6.iso / pd-disketten / dms-gepackt / 1_96 / apd-1-96-2.dms / apd-1-96-2.adf / Ist doch E Klar! / Listing_4.e < prev    next >
Text File  |  1995-12-21  |  200b  |  10 lines
  1. DEF codewort[20]:STRING
  2.  
  3. PROC main()
  4.   REPEAT
  5.     WriteF('Bitte geben Sie das Codewort ein: ')
  6.     ReadStr(stdout,codewort)
  7.   UNTIL StrCmp(codewort,'AMIGA',ALL)
  8.   WriteF('Jawoll, richtig!\n')
  9. ENDPROC
  10.